home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / userinfo.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  66 lines
  1. DEFINITION MODULE UserInformation;
  2.  
  3. FROM GrafBase   IMPORT Rectangle;
  4.  
  5. TYPE 
  6. (*     InfArray      = ARRAY [iie..MAX(infType)] OF BOOLEAN; *)
  7.      UserBlockType = RECORD
  8.                        MakeAfterDecode, (* INFILE erstellen nach *)
  9.                        MakeAtEnd,
  10.                        Umbruch,
  11.                        DeleteAfterDecode,
  12.                        autosave,
  13.                        DecodeAtStart,
  14.                        DecodeAfterRun,
  15.                        StartTermAtStart,
  16.                        TermAsOverlay,
  17.                        MakeBeforeTerminal,
  18.                        UmlautWandler,
  19.                        AutoUndo,
  20.                        ignoreRead : BOOLEAN;
  21.                        editRight : INTEGER;      (* R„nder fr Editor *)
  22.                        waitingTime : INTEGER;
  23.                        ustr1, ustr2 : ARRAY[0..15] OF CHAR;
  24.                        helpServer   : ARRAY[0..9] OF CHAR;
  25.                        (*
  26.                        INF  : InfArray;
  27.                        *)
  28.                        getPer,
  29.                        getOwnPers,
  30.                        getAllg,
  31.                        getInf,
  32.                        messToIn,
  33.                        statusToIn : BOOLEAN;
  34.                        initialQuote,
  35.                        security, groupChangeToIn : BOOLEAN;
  36.                        infoline1,
  37.                        infoline2 : ARRAY[0..255] OF CHAR;
  38.                        buttonW :  Rectangle; (* Fensterpositionen *)
  39.                        watchBox,
  40.                        InfoInSlider : BOOLEAN;
  41.                        sortGroups   : BOOLEAN;
  42.                        RedirectArcer: BOOLEAN;
  43.                        ShowCR       : BOOLEAN;
  44.                        autoSplit    : BOOLEAN;
  45.                        endlessLines : BOOLEAN;
  46.                        tabSize      : INTEGER;
  47.                        splitSize    : LONGINT;
  48.                        infoRO       : BOOLEAN;
  49.                        messDateToIn : BOOLEAN;
  50.                        ignoreFiltered: BOOLEAN;
  51.                      END;
  52.  
  53. VAR UserBLK : UserBlockType;
  54.  
  55.     batchProcess : BOOLEAN;
  56.  
  57. (*    
  58. TYPE infTableType = ARRAY [iie..MAX(infType)] OF ARRAY[0..4] OF CHAR;
  59.  
  60. VAR InfoFileTable : infTableType;    (* Enth„lt die Namen aller Infofiles von der Maus *)
  61. *)
  62.  
  63. PROCEDURE ReadUserBlock();
  64.  
  65. END UserInformation.
  66.